home *** CD-ROM | disk | FTP | other *** search
/ Champak 48 / cdrom_image.iso / Games / rollerrush / game.dcr / Internal_92_august prep.ls < prev    next >
Encoding:
Text File  |  2007-10-01  |  1.3 KB  |  58 lines
  1. global gCurrProfile, gLevel, gUpgradeSet, gNextLevel
  2.  
  3. on prepareFrame me
  4.   gUpgradeSet = 3
  5.   gNextLevel = 40
  6.   repeat with b = 1 to 40
  7.     if gCurrProfile.DayPassed[b] = 0 then
  8.       gNextLevel = b
  9.       exit repeat
  10.     end if
  11.   end repeat
  12.   repeat with b = 21 to 40
  13.     if b = 25 then
  14.       sprite(78).visible = 0
  15.     else
  16.       if b = 30 then
  17.         sprite(79).visible = 0
  18.       else
  19.         if b = 35 then
  20.           sprite(80).visible = 0
  21.         end if
  22.       end if
  23.     end if
  24.     if gCurrProfile.DayPassed[b] then
  25.       sprite(b + 42 - 20).visible = 1
  26.       sprite(b + 42 - 20).blend = 100
  27.       sprite(b + 42 - 20).memberNum = gCurrProfile.DayStars[b] + 100
  28.       sprite(b + 7 - 20).visible = 1
  29.       next repeat
  30.     end if
  31.     if gNextLevel > 20 then
  32.       nextLev = b
  33.       gLevel = nextLev
  34.       if gLevel < 31 then
  35.         gUpgradeSet = 3
  36.       else
  37.         gUpgradeSet = 4
  38.       end if
  39.       sprite(nextLev + 7 - 20).visible = 1
  40.       sprite(4).loc = sprite(nextLev + 7 - 20).loc
  41.       sprite(4).visible = 1
  42.       sprite(75).loc = sprite(4).loc
  43.       sprite(75).visible = 1
  44.     end if
  45.     exit repeat
  46.   end repeat
  47.   if nextLev = 0 then
  48.     if gLevel = 0 then
  49.     else
  50.     end if
  51.   end if
  52.   if gCurrProfile.ShowHelp[16] = 0 then
  53.     gCurrProfile.ShowHelp[16] = 1
  54.     SaveProfile()
  55.     sendSprite(771, #show)
  56.   end if
  57. end
  58.